home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / FGL402F.ZIP / EXFOR.ARJ / TEMP / 10-16.FOR < prev    next >
Text File  |  1995-01-20  |  1KB  |  50 lines
  1. $INCLUDE: 'C:\FG\FASTGRAF.FI'
  2.  
  3. C----------------------------------------------------------------------
  4. C  NOTE!!!
  5. C  When run in real mode, this program requires the large memory model.
  6. C----------------------------------------------------------------------
  7.  
  8.       PROGRAM MAIN
  9.  
  10.       INTEGER*1 ARROW(35), ARROW256(70), BUFFER(70)
  11.       INTEGER HANDLE, STATUS
  12.       INTEGER OLD_MODE
  13.       INTEGER FG_GETMODE, FG_TESTMODE, FG_VBDEFINE, FG_VBOPEN
  14.       
  15.       DATA ARROW /
  16.      +   #00,#00,#00,#F0,#00,
  17.      +   #00,#00,#00,#FF,#00,
  18.      +   #FF,#FF,#FF,#FF,#F0,
  19.      +   #FF,#FF,#FF,#FF,#FF,
  20.      +   #FF,#FF,#FF,#FF,#F0,
  21.      +   #00,#00,#00,#FF,#00,
  22.      +   #00,#00,#00,#F0,#00/
  23.  
  24.       CALL FG_INITPM
  25.       IF (FG_TESTMODE(13,1) .EQ. 0) THEN
  26.          STOP 'This program requires a 320 x 200 EGA graphics mode.'
  27.       END IF
  28.  
  29.       OLD_MODE = FG_GETMODE()
  30.       CALL FG_SETMODE(13)
  31.       CALL FG_UNPACK(ARROW,ARROW256,35)
  32.  
  33.       CALL FG_VBINIT
  34.       HANDLE = FG_VBDEFINE(BUFFER,10,7)
  35.       STATUS = FG_VBOPEN(HANDLE)
  36.       CALL FG_SETCOLOR(9)
  37.       CALL FG_FILLPAGE
  38.       CALL FG_MOVE(0,6)
  39.       CALL FG_DRWIMAGE(ARROW256,10,7)
  40.  
  41.       CALL FG_VBPASTE(0,9,0,6,156,101)
  42.       CALL FG_WAITKEY
  43.  
  44.       CALL FG_VBCLOSE
  45.       CALL FG_SETMODE(OLD_MODE)
  46.       CALL FG_RESET
  47.  
  48.       STOP ' '
  49.       END
  50.